home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / T / Thinkcup.cpt / TCL Update / TCL Update Diffs / CSwitchboard.c.Diff < prev    next >
Encoding:
Text File  |  1990-02-27  |  5.3 KB  |  112 lines  |  [TEXT/MPS ]
  1. File #1: Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c
  2. File #2: Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c
  3.  
  4. Extra lines in 1st before 22 in 2nd (File "Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c"; Line 22; File "Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c"; Line Δ22)
  5.   22    #include "Commands.h"       /* Altered by TCL Weaver version 1.0 (2/21/90) */
  6.  
  7.  
  8. Extra lines in 1st before 42 in 2nd (File "Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c"; Line 43:49; File "Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c"; Line Δ42)
  9.   43        /* Altered by TCL Weaver version 1.0 (2/21/90) */
  10.   44        
  11.   45    #define     KeyF1   0x7A    /* Key code for F1 key on extended keyboards    */
  12.   46    #define     KeyF2   0x78    /* Key code for F2 key on extended keyboards    */
  13.   47    #define     KeyF3   0x63    /* Key code for F3 key on extended keyboards    */
  14.   48    #define     KeyF4   0x76    /* Key code for F4 key on extended keyboards    */
  15.   49    
  16.  
  17.  
  18. Extra lines in 1st before 103 in 2nd (File "Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c"; Line 111:115; File "Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c"; Line Δ103)
  19.  111        /* Altered by TCL Weaver version 1.0 (2/21/90) */
  20.  112        
  21.  113        short           menuID, itemNo;
  22.  114        MenuHandle      macMenu;
  23.  115        
  24.  
  25.  
  26. Nonmatching lines (File "Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c"; Line 140:199; File "Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c"; Line 127:129)
  27.  140                
  28.  141                /* Altered by TCL Weaver version 1.0 (2/21/90) */
  29.  142                
  30.  143                switch (keyCode) {
  31.  144                
  32.  145                    case KeyF1:                         /* perform Undo command */
  33.  146                        gBartender->UpdateAllMenus();
  34.  147                        gBartender->FindMenuItem(cmdUndo, &menuID, &macMenu, &itemNo);
  35.  148                        if (((*macMenu)->enableFlags & 1) &&
  36.  149                            (((*macMenu)->enableFlags >> itemNo) & 1)) {
  37.  150                            
  38.  151                            HiliteMenu(menuID);
  39.  152                            gGopher->DoCommand(cmdUndo);
  40.  153                            HiliteMenu(0);
  41.  154                        }
  42.  155                        break;
  43.  156                        
  44.  157                    case KeyF2:                         /* perform Cut command */
  45.  158                        gBartender->UpdateAllMenus();
  46.  159                        gBartender->FindMenuItem(cmdCut, &menuID, &macMenu, &itemNo);
  47.  160                        if (((*macMenu)->enableFlags & 1) &&
  48.  161                            (((*macMenu)->enableFlags >> itemNo) & 1)) {
  49.  162                            
  50.  163                            HiliteMenu(menuID);
  51.  164                            gGopher->DoCommand(cmdCut);
  52.  165                            HiliteMenu(0);
  53.  166                        }
  54.  167                        break;
  55.  168                        
  56.  169                    case KeyF3:                         /* perform Copy command */
  57.  170                        gBartender->UpdateAllMenus();
  58.  171                        gBartender->FindMenuItem(cmdCopy, &menuID, &macMenu, &itemNo);
  59.  172                        if (((*macMenu)->enableFlags & 1) &&
  60.  173                            (((*macMenu)->enableFlags >> itemNo) & 1)) {
  61.  174                            
  62.  175                            HiliteMenu(menuID);
  63.  176                            gGopher->DoCommand(cmdCopy);
  64.  177                            HiliteMenu(0);
  65.  178                        }
  66.  179                        break;
  67.  180                        
  68.  181                    case KeyF4:                         /* perform Paste command */
  69.  182                        gBartender->UpdateAllMenus();
  70.  183                        gBartender->FindMenuItem(cmdPaste, &menuID, &macMenu, &itemNo);
  71.  184                        if (((*macMenu)->enableFlags & 1) &&
  72.  185                            (((*macMenu)->enableFlags >> itemNo) & 1)) {
  73.  186                            
  74.  187                            HiliteMenu(menuID);
  75.  188                            gGopher->DoCommand(cmdPaste);
  76.  189                            HiliteMenu(0);
  77.  190                        }
  78.  191                        break;
  79.  192                        
  80.  193                    default:
  81.  194                            
  82.  195                                            /* A regular keystroke; let the     */
  83.  196                                            /*   gopher handle it.              */
  84.  197                        gGopher->DoKeyDown(theChar, keyCode, macEvent);
  85.  198                        break;
  86.  199                }
  87.  
  88.  127                                            /* A regular keystroke; let the     */
  89.  128                                            /*   gopher handle it.              */
  90.  129                    gGopher->DoKeyDown(theChar, keyCode, macEvent);
  91.  
  92.  
  93. Nonmatching lines (File "Roy G. Biv:C TCL patch ƒ:new files:CSwitchboard.c"; Line 357:364; File "Roy G. Biv:C TCL patch ƒ:old files:CSwitchboard.c"; Line 287:292)
  94.  357            
  95.  358        /* Altered by TCL Weaver version 1.0 (2/21/90) */
  96.  359    
  97.  360        SetPort(gDesktop->macPort);
  98.  361        GetMouse(&mouseLoc);
  99.  362    
  100.  363        gDesktop->DispatchCursor(mouseLoc, mouseRgn);
  101.  364    
  102.  
  103.  287    
  104.  288        OSEventAvail(NOTHING, &macEvent);   /* This returns a NULL event which  */
  105.  289                                            /*   has the global mouse location  */
  106.  290                                            /*   in the where field             */
  107.  291        gDesktop->DispatchCursor(macEvent.where, mouseRgn);
  108.  292    
  109.  
  110.  
  111. *** EOF on both files at the same time ***
  112.